home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 03.ki (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  496b  |  21 lines
  1. 1 rem ********************************
  2. 2 rem *   irrgaerten und maeuse ii   *
  3. 3 rem * <c> 1985 bei michael nickles *
  4. 4 rem ********************************
  5. 5 poke53280,0:poke53281,0:print"[147]maus ii[146]"
  6. 10 ri$(1)="links"
  7. 11 ri$(2)="geradeaus"
  8. 12 ri$(3)="rechts"
  9. 100 rem hauptprogramm ----------------
  10. 110 i=0
  11. 120 i=i+1
  12. 125 ifi=4thenprint"habe mich verirrt !":end
  13. 130 print"kann ich ";ri$(i);" gehen (j/n)"
  14. 140 inputbe$
  15. 150 ifbe$="n"then120
  16. 155 i=0
  17. 160 print"ausgang gefunden (j/n)"
  18. 170 inputbe$
  19. 180 ifbe$="j"thenprint"prima !":end
  20. 200 goto120
  21.